home *** CD-ROM | disk | FTP | other *** search
/ Filling / Filling - Disc 7.iso / pc / cumulus_win / data.z / GOTODLG.FR_ / GOTODLG.FR (.txt)
Visual Basic Form  |  1997-11-21  |  3KB  |  104 lines
  1. VERSION 4.00
  2. Begin VB.Form frmGotoDlg 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "Go To"
  5.    ClientHeight    =   1260
  6.    ClientLeft      =   4536
  7.    ClientTop       =   6996
  8.    ClientWidth     =   3108
  9.    ControlBox      =   0   'False
  10.    Height          =   1644
  11.    Left            =   4488
  12.    LinkTopic       =   "Form2"
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   1260
  16.    ScaleWidth      =   3108
  17.    ShowInTaskbar   =   0   'False
  18.    Top             =   6660
  19.    Width           =   3204
  20.    Begin VB.TextBox txtPageNo 
  21.       Height          =   330
  22.       Left            =   1440
  23.       TabIndex        =   4
  24.       Text            =   "0"
  25.       Top             =   210
  26.       Width           =   855
  27.    End
  28.    Begin VB.CommandButton cmdCancelButton 
  29.       Caption         =   "Cancel"
  30.       Height          =   330
  31.       Left            =   1680
  32.       TabIndex        =   2
  33.       Top             =   735
  34.       Width           =   1215
  35.    End
  36.    Begin VB.CommandButton cmdOKbutton 
  37.       Caption         =   "OK"
  38.       Height          =   330
  39.       Left            =   120
  40.       TabIndex        =   1
  41.       Top             =   735
  42.       Width           =   1215
  43.    End
  44.    Begin Spin.SpinButton SpinButton1 
  45.       Height          =   324
  46.       Left            =   2280
  47.       TabIndex        =   3
  48.       Top             =   216
  49.       Width           =   252
  50.       _Version        =   65536
  51.       _ExtentX        =   445
  52.       _ExtentY        =   572
  53.       _StockProps     =   73
  54.    End
  55.    Begin VB.Label lblLabel1 
  56.       Alignment       =   1  'Right Justify
  57.       Caption         =   "Go To Page"
  58.       Height          =   330
  59.       Left            =   240
  60.       TabIndex        =   0
  61.       Top             =   210
  62.       Width           =   975
  63.    End
  64. Attribute VB_Name = "frmGotoDlg"
  65. Attribute VB_Creatable = False
  66. Attribute VB_Exposed = False
  67. Private Sub cmdCancelButton_Click()
  68. Unload frmGotoDlg
  69. End Sub
  70. Private Sub cmdOKbutton_Click()
  71. 'convert page number text from edit box to an int
  72. 'and display the new page
  73. frmSample.oleImgEdit1.page = CInt(txtPageNo.Text)
  74. frmSample.oleImgEdit1.Display
  75. frmSample.oleImgThumbnail1.DeselectAllThumbs
  76. frmSample.oleImgThumbnail1.ThumbSelected(frmSample.oleImgEdit1.page) = True
  77. Unload frmGotoDlg
  78. End Sub
  79. Private Sub Form_Load()
  80. 'convert current page number to string and display
  81. 'it in edit box
  82. txtPageNo.Text = CStr(frmSample.oleImgEdit1.page)
  83. End Sub
  84. Private Sub SpinButton1_SpinDown()
  85. 'get page number text from edit box and convert
  86. 'it to an int
  87. selPage = CInt(txtPageNo.Text)
  88. 'decrement selected page number
  89. selPage = selPage - 1
  90. 'convert page number back to string and display it
  91. 'in edit box
  92. txtPageNo.Text = CStr(selPage)
  93. End Sub
  94. Private Sub SpinButton1_SpinUp()
  95. 'get page number text from edit box and convert
  96. 'it to an int
  97. selPage = CInt(txtPageNo.Text)
  98. 'increment selected page number
  99. selPage = selPage + 1
  100. 'convert page number back to string and display it
  101. 'in edit box
  102. txtPageNo.Text = CStr(selPage)
  103. End Sub
  104.